home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8409.arc / DASCON2.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  640b  |  24 lines
  1. 10 REM A/D CHANNEL 0 MONITOR WITH INTERRUPT
  2. 20 CLEAR,62463!
  3. 30 DEF SEG=0
  4. 40 SG=256*PEEK(&H511)+PEEK(&H510)
  5. 50 SG=62463!/16+SG
  6. 60 DEF SEG = SG
  7. 70 BLOAD "DASCON1.BIN",0
  8. 80 OPEN "I",#1,"DASCON1.ADR":INPUT#1,BASADR%:CLOSE#1
  9. 90 DIM DIO%(8)
  10. 100 MD%=3
  11. 110 CH%=2
  12. 120 DIO%(0)=0:DIO%(1)=0
  13. 130 BASADR%=768
  14. 140 DEF SEG = SG
  15. 150 DASCON1 = 0
  16. 160 CALL DASCON1 (MD%,CH%,DIO%(0),DIO%(1),BASADR%)
  17. 170 MD%=6
  18. 180 CH%=0
  19. 190 CALL DASCON1 (MD%,CH%,DIO%(0),DIO%(1),BASADR%)
  20. 200 IF DIO%(8)=0 GOTO 170
  21. 210 PRINT I,DIO%(0)
  22. 220 GOTO 100
  23. 230 END
  24.